home *** CD-ROM | disk | FTP | other *** search
/ ftp.trace.wisc.edu / ftp.trace.wisc.edu.zip / ftp.trace.wisc.edu / hypertyper.sit.hqx / HyperTyper / HyperTyper - color / stack_-1.xml < prev    next >
Extensible Markup Language  |  1995-08-20  |  2KB  |  21 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3003</cardID>
  8.     <listID>2205</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStacklock screencolorizeHC "ColorFill",,"0,10000,25000"colorizeHC "Erase",the rect of cd field id 1put 2 into xrepeat 53set textFont of button id x to "Geneva"set textStyle of button id x to "Bold"put x into yput y + 1 into xend repeatset textFont of button id 57 to "Geneva"set textStyle of button id 57 to "Bold"set textFont of button id 59 to "Geneva"set textStyle of button id 59 to "Bold"put 2 into xrepeat 53colorizeHC "Erase",the rect of cd btn id xput x into yput y + 1 into xend repeatcolorizeHC "Erase",the rect of cd btn id 57colorizeHC "Erase",the rect of cd btn id 59create menu "Home"create menu "About HyperTyper"maketyperMenuglobal keYs, lockIt, saveLevput false into lockItput false into keYsput userlevel into saveLevunlock screenend openStackon maketyperMenuput "Tell Me..." into typerMenuput "aboutHyperTyper" into typerMsgsput typerMenu into menu "About HyperTyper" with menuMessages typerMsgsput "Go There" into transportMenuput "gothere" into transportMsgsput transportMenu into menu "Home" with menuMessages transportMsgsdelete menu "Go"set userlevel to 2end maketyperMenuon aboutHyperTyperdomenu "Last"end aboutHyperTyperon gotherego homeend gothereon closeStackglobal saveLevgo to first cardcolorizeHC "Dispose"reset menubardomenu "Compact Stack"if saveLev is a number then set userlevel to saveLevend closeStack</script>
  17.     <background id="2744" file="background_2744.xml" name="" />
  18.     <card id="3003" file="card_3003.xml" marked="false" name="Typer" owner="2744" />
  19.     <card id="3797" file="card_3797.xml" marked="false" name="Credits" owner="2744" />
  20. </stack>
  21.